home *** CD-ROM | disk | FTP | other *** search
/ ADA Programming Guide / ADA Programming Guide.iso / adasmall / atest4.ada < prev    next >
Encoding:
Text File  |  1996-01-30  |  1.3 KB  |  71 lines
  1. -- This program can be used to demonstrate the Round-Robin scheduling
  2. -- technique
  3. -- The order is as follows: Task1 Task2 Task3 Task4
  4. with SMALL_SP; use SMALL_SP;
  5. procedure Atest4 is
  6.  
  7.    task Task1 is
  8.      entry start;
  9.    end Task1;
  10.  
  11.    task Task2 is
  12.      entry start;
  13.    end Task2;
  14.  
  15.    task Task3 is
  16.      entry start;
  17.    end Task3;
  18.  
  19.    task Task4 is
  20.      entry start;
  21.    end Task4;
  22.  
  23.    task body Task1 is
  24.      k : INTEGER;
  25.    begin
  26.        accept start;
  27.        for k in 0..20 loop
  28.          PUT("1");
  29.        end loop;
  30.    end Task1;
  31.  
  32.    task body Task2 is
  33.      k : INTEGER;
  34.    begin
  35.        accept start;
  36.        for k in 0..20 loop
  37.          PUT("2");
  38.        end loop;
  39.    end Task2;
  40.  
  41.    task body Task3 is
  42.      k : INTEGER;
  43.    begin
  44.        accept start;
  45.        for k in 0..20 loop
  46.          PUT("3");
  47.        end loop;
  48.    end Task3;
  49.  
  50.    task body Task4 is
  51.      k : INTEGER;
  52.    begin
  53.        accept start;
  54.        for k in 0..20 loop
  55.          PUT("4");
  56.        end loop;
  57.    end Task4;
  58.  
  59. begin
  60.   PUT("If this was scheduled using Round-Robin then ");
  61.   NEW_LINE;
  62.   PUT("the order will be Task1 Task2 Task3 Task3");
  63.   NEW_LINE;
  64.   NEW_LINE;
  65.   NEW_LINE;
  66.   Task1.start;
  67.   Task2.start;
  68.   Task3.start;
  69.   Task4.start;
  70. end Atest4;
  71.